
module F(Hw1 : Hw1Sig.T) : Grader.Sig =
struct 

open OUnit

let test_eq (name, n, m) = name >:: (fun () -> if n = m then () else raise (Failure name))

let fact_test = "fact" >::: List.map test_eq ["f1", 4, 24]

let test = "HW1" >::: [fact_test]

end
